x <- runif(20)
y <- 2 * x + rnorm(20, 0, 0.3)
summary(lm(y ~ x))

anova(lm(y ~ x))
anova(lm(y ~ x - 1))
